object DMDados: TDMDados
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 483
  Width = 873
  object adoConnADOHabil: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Ha' +
      'bil\Dados\Habil.mdb;Mode=ReadWrite;Persist Security Info=False;J' +
      'et OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB' +
      ':Database Password=amoragape;Jet OLEDB:Engine Type=4;Jet OLEDB:D' +
      'atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet O' +
      'LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=' +
      '"";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data' +
      'base=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLED' +
      'B:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 88
    Top = 8
  end
  object dsContaCaixaReceitas: TDataSource
    DataSet = adoQryContaCaixaReceitas
    Left = 88
    Top = 208
  end
  object adoQryContaCaixaReceitas: TADOQuery
    Connection = adoConnADOHabil
    CursorType = ctStatic
    AfterOpen = adoQryContaCaixaReceitasAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'WHERE C'#243'digo_Conta >= '#39'1'#39' AND C'#243'digo_Conta < '#39'2'#39
      'ORDER BY C'#243'digo_Conta')
    Left = 88
    Top = 160
    object adoQryContaCaixaReceitasCodigo: TIntegerField
      FieldName = 'Codigo'
    end
    object adoQryContaCaixaReceitasEmpresa: TIntegerField
      FieldName = 'Empresa'
    end
    object adoQryContaCaixaReceitasDescrio: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object adoQryContaCaixaReceitasCdigo_Conta: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object adoQryContaCaixaReceitasPermite_Lanamentos: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object adoQryContaCaixaReceitasTipo_Conta: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object adoQryContaCaixaReceitasUsuario: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object dsContaCaixaDespesas: TDataSource
    DataSet = adoQryContaCaixaDespesas
    Left = 88
    Top = 312
  end
  object adoQryContaCaixaDespesas: TADOQuery
    Connection = adoConnADOHabil
    CursorType = ctStatic
    AfterOpen = adoQryContaCaixaDespesasAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Caixa_Contas'
      'WHERE C'#243'digo_Conta >= '#39'2'#39' AND C'#243'digo_Conta < '#39'3'#39
      'ORDER BY C'#243'digo_Conta')
    Left = 88
    Top = 264
    object IntegerField1: TIntegerField
      FieldName = 'Codigo'
    end
    object IntegerField2: TIntegerField
      FieldName = 'Empresa'
    end
    object WideStringField1: TWideStringField
      FieldName = 'Descri'#231#227'o'
      Size = 80
    end
    object WideStringField2: TWideStringField
      FieldName = 'C'#243'digo_Conta'
      Size = 30
    end
    object BooleanField1: TBooleanField
      FieldName = 'Permite_Lan'#231'amentos'
    end
    object WideStringField3: TWideStringField
      FieldName = 'Tipo_Conta'
      Size = 2
    end
    object IntegerField3: TIntegerField
      FieldName = 'Usuario'
    end
  end
  object adoConnServer: TADOConnection
    ConnectionString = 
      'Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Inf' +
      'o=False;Initial Catalog=SAF;Data Source=(local);'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLNCLI.1'
    Left = 400
    Top = 8
  end
  object dsEmpresa: TDataSource
    DataSet = adoQryEmpresa
    Left = 88
    Top = 104
  end
  object adoQryEmpresa: TADOQuery
    Connection = adoConnADOHabil
    CursorType = ctStatic
    AfterOpen = adoQryEmpresaAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM Empresa'
      'WHERE 1=1'
      'ORDER BY Codigo')
    Left = 88
    Top = 56
    object adoQryEmpresaCodigo: TAutoIncField
      FieldName = 'Codigo'
      ReadOnly = True
    end
    object adoQryEmpresaNome_Fantasia: TWideStringField
      FieldName = 'Nome_Fantasia'
      Size = 50
    end
    object adoQryEmpresaRazo_Social: TWideStringField
      FieldName = 'Raz'#227'o_Social'
      Size = 50
    end
    object adoQryEmpresaCGC: TWideStringField
      FieldName = 'CGC'
    end
    object adoQryEmpresaInscrio_Estadual: TWideStringField
      FieldName = 'Inscri'#231#227'o_Estadual'
    end
    object adoQryEmpresaEndereo: TWideStringField
      FieldName = 'Endere'#231'o'
      Size = 50
    end
    object adoQryEmpresaBairro: TWideStringField
      FieldName = 'Bairro'
    end
    object adoQryEmpresaCidade: TWideStringField
      FieldName = 'Cidade'
      Size = 50
    end
    object adoQryEmpresaUF: TWideStringField
      FieldName = 'UF'
      Size = 2
    end
    object adoQryEmpresaCEP: TWideStringField
      FieldName = 'CEP'
      Size = 10
    end
    object adoQryEmpresaResponsvel: TWideStringField
      FieldName = 'Respons'#225'vel'
      Size = 50
    end
    object adoQryEmpresaTelefone: TWideStringField
      FieldName = 'Telefone'
      Size = 30
    end
    object adoQryEmpresaFAX: TWideStringField
      FieldName = 'FAX'
      Size = 30
    end
    object adoQryEmpresaTipo_Empresa: TWideStringField
      FieldName = 'Tipo_Empresa'
      Size = 1
    end
    object adoQryEmpresaEmpresa: TIntegerField
      FieldName = 'Empresa'
    end
    object adoQryEmpresaReferncia: TIntegerField
      FieldName = 'Refer'#234'ncia'
    end
    object adoQryEmpresaOptante_Simples: TBooleanField
      FieldName = 'Optante_Simples'
    end
    object adoQryEmpresaUsuario: TIntegerField
      FieldName = 'Usuario'
    end
    object adoQryEmpresaTaxa_Juros: TFloatField
      FieldName = 'Taxa_Juros'
    end
    object adoQryEmpresaTipo_Juros: TWideStringField
      FieldName = 'Tipo_Juros'
      Size = 1
    end
    object adoQryEmpresaNro_Venda: TIntegerField
      FieldName = 'Nro_Venda'
    end
    object adoQryEmpresaOptante_SF: TBooleanField
      FieldName = 'Optante_SF'
    end
    object adoQryEmpresaOptante_SE: TBooleanField
      FieldName = 'Optante_SE'
    end
    object adoQryEmpresaMSG_Substituio_Tributria: TWideStringField
      FieldName = 'MSG_Substitui'#231#227'o_Tribut'#225'ria'
      Size = 255
    end
    object adoQryEmpresaMSG_Base_Reduzida: TWideStringField
      FieldName = 'MSG_Base_Reduzida'
      Size = 255
    end
    object adoQryEmpresaMSG_Isento: TWideStringField
      FieldName = 'MSG_Isento'
      Size = 255
    end
    object adoQryEmpresaMSG_Suspenso: TWideStringField
      FieldName = 'MSG_Suspens'#227'o'
      Size = 255
    end
    object adoQryEmpresaMSG_Diferimento: TWideStringField
      FieldName = 'MSG_Diferimento'
      Size = 255
    end
    object adoQryEmpresaMSG_Outros: TWideStringField
      FieldName = 'MSG_Outros'
      Size = 255
    end
    object adoQryEmpresaSrie: TWideStringField
      FieldName = 'S'#233'rie'
      Size = 3
    end
    object adoQryEmpresaSub_Srie: TWideStringField
      FieldName = 'Sub_S'#233'rie'
      Size = 2
    end
    object adoQryEmpresaEmail: TWideStringField
      FieldName = 'Email'
      Size = 255
    end
    object adoQryEmpresaNmero: TWideStringField
      FieldName = 'N'#250'mero'
      Size = 10
    end
    object adoQryEmpresaComplemento: TWideStringField
      FieldName = 'Complemento'
    end
    object adoQryEmpresaMensagem_Simples_Estadual: TWideStringField
      FieldName = 'Mensagem_Simples_Estadual'
      Size = 255
    end
    object adoQryEmpresaMensagem_Simples_Federal: TWideStringField
      FieldName = 'Mensagem_Simples_Federal'
      Size = 255
    end
    object adoQryEmpresaIRRF: TFloatField
      FieldName = 'IRRF'
    end
    object adoQryEmpresaISS: TFloatField
      FieldName = 'ISS'
    end
    object adoQryEmpresaIcms_Frete: TFloatField
      FieldName = 'Icms_Frete%'
    end
    object adoQryEmpresaPercentual_Multa_Atraso: TFloatField
      FieldName = 'Percentual_Multa_Atraso'
    end
    object adoQryEmpresaPrefixo_Cdigo_Barras: TWideStringField
      FieldName = 'Prefixo_C'#243'digo_Barras'
      Size = 7
    end
    object adoQryEmpresaRetem_Impostos: TBooleanField
      FieldName = 'Retem_Impostos'
    end
    object adoQryEmpresaCSLL: TFloatField
      FieldName = 'CSLL'
    end
    object adoQryEmpresaCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object adoQryEmpresaPIS: TFloatField
      FieldName = 'PIS'
    end
    object adoQryEmpresaNro_Nota: TIntegerField
      FieldName = 'Nro_Nota'
    end
    object adoQryEmpresanao_mostra_lembretes: TBooleanField
      FieldName = 'nao_mostra_lembretes'
    end
    object adoQryEmpresaInscrio_Municipal: TWideStringField
      FieldName = 'Inscri'#231#227'o_Municipal'
      Size = 30
    end
    object adoQryEmpresaCusto_Fixo: TFloatField
      FieldName = 'Custo_Fixo%'
    end
    object adoQryEmpresaOptante_SN: TBooleanField
      FieldName = 'Optante_SN'
    end
    object adoQryEmpresaNFe_Certificado: TWideStringField
      FieldName = 'NFe_Certificado'
      Size = 50
    end
    object adoQryEmpresaNFe_Chave: TWideStringField
      FieldName = 'NFe_Chave'
      Size = 50
    end
    object adoQryEmpresacont_nome: TWideStringField
      FieldName = 'cont_nome'
      Size = 100
    end
    object adoQryEmpresacont_cpf: TWideStringField
      FieldName = 'cont_cpf'
      Size = 50
    end
    object adoQryEmpresacont_crc: TWideStringField
      FieldName = 'cont_crc'
      Size = 50
    end
    object adoQryEmpresacont_cnpj: TWideStringField
      FieldName = 'cont_cnpj'
      Size = 50
    end
    object adoQryEmpresacont_cep: TWideStringField
      FieldName = 'cont_cep'
    end
    object adoQryEmpresacont_endereco: TWideStringField
      FieldName = 'cont_endereco'
      Size = 100
    end
    object adoQryEmpresacont_numero: TWideStringField
      FieldName = 'cont_numero'
    end
    object adoQryEmpresacont_referencia: TWideStringField
      FieldName = 'cont_referencia'
      Size = 100
    end
    object adoQryEmpresacont_bairro: TWideStringField
      FieldName = 'cont_bairro'
      Size = 50
    end
    object adoQryEmpresacont_cidade: TWideStringField
      FieldName = 'cont_cidade'
      Size = 100
    end
    object adoQryEmpresacont_uf: TWideStringField
      FieldName = 'cont_uf'
      Size = 2
    end
    object adoQryEmpresacont_telefone: TWideStringField
      FieldName = 'cont_telefone'
      Size = 50
    end
    object adoQryEmpresacont_fax: TWideStringField
      FieldName = 'cont_fax'
      Size = 50
    end
    object adoQryEmpresacont_email: TWideStringField
      FieldName = 'cont_email'
      Size = 100
    end
    object adoQryEmpresaCRT: TWideStringField
      FieldName = 'CRT'
      Size = 1
    end
    object adoQryEmpresaNFE_CCE_LOTE: TIntegerField
      FieldName = 'NFE_CCE_LOTE'
    end
  end
  object dsLkpEmpresa: TDataSource
    DataSet = adoQryEmpresa
    Left = 168
    Top = 56
  end
  object dsSAF0607A: TDataSource
    DataSet = adoQrySAF0607A
    Left = 400
    Top = 104
  end
  object adoQrySAF0607A: TADOQuery
    Connection = adoConnServer
    CursorType = ctStatic
    AfterOpen = adoQrySAF0607AAfterOpen
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT '
      'SAF0607.ID_DRE_GRUPO,'
      'SAF0607A.ID_EMPRESA,'
      'SAF0607A.CONTA_CAIXA_NRO,'
      'SAF0607A.CONTA_CAIXA_DSC '
      'FROM SAF0607A'
      
        'INNER JOIN SAF0607 ON (SAF0607.ID_DRE_GRUPO = SAF0607A.ID_DRE_GR' +
        'UPO)'
      'WHERE SAF0607.ID_DRE_GRUPO = 1'
      'AND SAF0607A.ID_EMPRESA = 1'
      
        'ORDER BY SAF0607A.ID_EMPRESA, SAF0607.ID_DRE_GRUPO, SAF0607A.CON' +
        'TA_CAIXA_NRO;')
    Left = 400
    Top = 56
    object adoQrySAF0607AID_DRE_GRUPO: TLargeintField
      FieldName = 'ID_DRE_GRUPO'
      ReadOnly = True
    end
    object adoQrySAF0607AID_EMPRESA: TIntegerField
      FieldName = 'ID_EMPRESA'
    end
    object adoQrySAF0607ACONTA_CAIXA_NRO: TStringField
      FieldName = 'CONTA_CAIXA_NRO'
      Size = 30
    end
    object adoQrySAF0607ACONTA_CAIXA_DSC: TStringField
      FieldName = 'CONTA_CAIXA_DSC'
      Size = 255
    end
  end
  object dsAuxSAF: TDataSource
    DataSet = adoQryAuxSAF
    Left = 496
    Top = 104
  end
  object adoQryAuxSAF: TADOQuery
    Connection = adoConnServer
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    Left = 496
    Top = 56
  end
  object dsReceitasDRE: TDataSource
    DataSet = adoQryReceitasDRE
    Left = 224
    Top = 208
  end
  object adoQryReceitasDRE: TADOQuery
    Connection = adoConnADOHabil
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT '
      #39'1 - RECEITAS'#39' AS TIPO,'
      'COUNT(1) AS QTDE, '
      'CONTAS_RECEBER.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O, '
      'SUM(VALOR) AS VALOR'
      'FROM CONTAS_RECEBER'
      
        'INNER JOIN CAIXA_CONTAS ON (CONTAS_RECEBER.CONTA_CAIXA = CAIXA_C' +
        'ONTAS.C'#211'DIGO_CONTA)'
      'WHERE 1 = 1 '
      'AND CONTAS_RECEBER.EMPRESA = 1'
      'AND CONTAS_RECEBER.CANCELADO = FALSE '
      
        'AND CONTAS_RECEBER.DATA_CONTA BETWEEN #2000/01/01# AND #2099/12/' +
        '31#'
      'AND CONTAS_RECEBER.CONTA_CAIXA BETWEEN '#39'1'#39' AND '#39'2'#39
      'GROUP BY '
      'CONTAS_RECEBER.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O'
      'ORDER BY CONTAS_RECEBER.CONTA_CAIXA')
    Left = 224
    Top = 160
    object adoQryReceitasDRETIPO: TWideStringField
      FieldName = 'TIPO'
      ReadOnly = True
      Size = 255
    end
    object adoQryReceitasDREQTDE: TIntegerField
      FieldName = 'QTDE'
      DisplayFormat = ',0'
    end
    object adoQryReceitasDRECONTA_CAIXA: TWideStringField
      FieldName = 'CONTA_CAIXA'
      Size = 30
    end
    object adoQryReceitasDREDESCRIO: TWideStringField
      FieldName = 'DESCRI'#199#195'O'
      Size = 80
    end
    object adoQryReceitasDREVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = ',.00'
    end
  end
  object dsDespesasDRE: TDataSource
    DataSet = adoQryDespesasDRE
    Left = 224
    Top = 312
  end
  object adoQryDespesasDRE: TADOQuery
    Connection = adoConnADOHabil
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT '
      #39'2 - DESPESAS'#39' AS TIPO,'
      'COUNT(1) AS QTDE, '
      'CONTAS_PAGAR.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O, '
      'SUM(VALOR)*-1 AS VALOR'
      'FROM CONTAS_PAGAR'
      
        'INNER JOIN CAIXA_CONTAS ON (CONTAS_PAGAR.CONTA_CAIXA = CAIXA_CON' +
        'TAS.C'#211'DIGO_CONTA)'
      'WHERE 1 = 1 '
      'AND CONTAS_PAGAR.EMPRESA = 1'
      'AND CONTAS_PAGAR.CANCELADO = FALSE '
      
        'AND CONTAS_PAGAR.DATA_CONTA BETWEEN #2000/01/01# AND #2099/12/31' +
        '#'
      'AND CONTAS_PAGAR.CONTA_CAIXA BETWEEN '#39'2'#39' AND '#39'3'#39
      'GROUP BY '
      'CONTAS_PAGAR.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O'
      'ORDER BY CONTAS_PAGAR.CONTA_CAIXA')
    Left = 224
    Top = 264
    object adoQryDespesasDRETIPO: TWideStringField
      FieldName = 'TIPO'
      ReadOnly = True
      Size = 255
    end
    object IntegerField4: TIntegerField
      FieldName = 'QTDE'
      DisplayFormat = ',0'
    end
    object WideStringField4: TWideStringField
      FieldName = 'CONTA_CAIXA'
      Size = 30
    end
    object WideStringField5: TWideStringField
      FieldName = 'DESCRI'#199#195'O'
      Size = 80
    end
    object FloatField1: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = ',.00'
    end
  end
  object dsDRE: TDataSource
    DataSet = adoQryDRE
    Left = 328
    Top = 256
  end
  object adoQryDRE: TADOQuery
    Connection = adoConnADOHabil
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT '
      #39'1 - RECEITAS'#39' AS TIPO,'
      'COUNT(1) AS QTDE, '
      'CONTAS_RECEBER.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O, '
      'SUM(VALOR) AS VALOR'
      'FROM CONTAS_RECEBER'
      
        'INNER JOIN CAIXA_CONTAS ON (CONTAS_RECEBER.CONTA_CAIXA = CAIXA_C' +
        'ONTAS.C'#211'DIGO_CONTA)'
      'WHERE 1 = 1'
      'AND CONTAS_RECEBER.EMPRESA = 1'
      'AND CONTAS_RECEBER.CANCELADO = FALSE '
      
        'AND CONTAS_RECEBER.DATA_CONTA BETWEEN #2000/01/01# AND #2099/12/' +
        '31#'
      'AND CONTAS_RECEBER.CONTA_CAIXA BETWEEN '#39'1'#39' AND '#39'2'#39
      'GROUP BY '
      'CONTAS_RECEBER.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O'
      ''
      'UNION ALL'
      ''
      'SELECT '
      #39'2 - DESPESAS'#39' AS TIPO,'
      'COUNT(1) AS QTDE, '
      'CONTAS_PAGAR.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O, '
      'SUM(VALOR)*-1 AS VALOR'
      'FROM CONTAS_PAGAR'
      
        'INNER JOIN CAIXA_CONTAS ON (CONTAS_PAGAR.CONTA_CAIXA = CAIXA_CON' +
        'TAS.C'#211'DIGO_CONTA)'
      'WHERE 1 = 1 '
      'AND CONTAS_PAGAR.EMPRESA = 1'
      'AND CONTAS_PAGAR.CANCELADO = FALSE '
      
        'AND CONTAS_PAGAR.DATA_CONTA BETWEEN #2000/01/01# AND #2099/12/31' +
        '#'
      'AND CONTAS_PAGAR.CONTA_CAIXA BETWEEN '#39'2'#39' AND '#39'3'#39
      'GROUP BY '
      'CONTAS_PAGAR.CONTA_CAIXA, '
      'CAIXA_CONTAS.DESCRI'#199#195'O'
      'ORDER BY 1')
    Left = 328
    Top = 208
    object adoQryDRETIPO: TWideStringField
      FieldName = 'TIPO'
      Size = 255
    end
    object IntegerField5: TIntegerField
      FieldName = 'QTDE'
      DisplayFormat = ',0'
    end
    object WideStringField6: TWideStringField
      FieldName = 'CONTA_CAIXA'
      Size = 30
    end
    object WideStringField7: TWideStringField
      FieldName = 'DESCRI'#199#195'O'
      Size = 80
    end
    object FloatField2: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = ',.00'
    end
  end
end
